home *** CD-ROM | disk | FTP | other *** search
/ Pulp 2 / Pulp_02_1999_POL_de.d64 / u4B B..B o B (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  5KB  |  118 lines
  1. 0 poke53265,peek(53265)and239
  2. 1 dimw$(300):poke53281,0:poke53280,0:poke650,128:
  3. 2 fori=1to15:poke211,0:poke214,i:sys58640
  4. 3 print"[147][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  5. 4 poke211,0:poke214,16:sys58640:print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  6. 5 goto10
  7. 7 poke53265,peek(53265)or16:return
  8. 10 forr=1to90:reada$:w$(r)=a$:next
  9. 11 poke211,0:poke214,17:sys58640:
  10. 12 print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";:u$="mag"
  11. 13 print"[213][203][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [202][201]";
  12. 14 print"[194][155]        [176][195][195][174] [195][195][178][195] [176][195][195][174] [176][195][195][174] [174]   [176]     [194]";
  13. 15 print"[194]        [173][195][195][174]   [194]  [194]  [194] [171][195][178][189] [173][195][178][195][189]     [194]";
  14. 16 print"[194][155]     [173][195][195][195][195][195][189]   [194]  [173][195][195][189] [173] [173][189]   [173]       [194]";
  15. 17 print"[202][201][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [213][203]";
  16. 18 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] ";:gosub7
  17. 20 x=0:y=-1
  18. 21 fori=1to15:poke211,1:poke214,i:sys58640:print"[154]"w$(x+i):next:goto22
  19. 22 geta$:
  20. 23 ifa$=chr$(13)then50
  21. 24 if a$="."andx<75thenx=x+15:goto21
  22. 25 if a$=","andx>0thenx=x-15:goto21
  23. 26 goto22
  24. 50 poke828,0:printchr$(147)chr$(17):print"[144]load"chr$(34)"m1*"chr$(34)",8"
  25. 51 printchr$(17)chr$(17)chr$(17)chr$(17)"run"
  26. 52 poke631,13:poke632,13:poke198,2
  27. 53 printchr$(19);:end
  28. 100 data"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  29. 101 data"                                      "
  30. 102 data"  [178] [176][195][174] [176][174] [176][174][176]            [195][196][197][196][195][195][195][195][195][174]  "
  31. 103 data"  [194] [171][178][189] [194][194] [194][173][189]   woman    [209][215][209][215][209][215][209][215] [194]  "
  32. 104 data"  [177] [173][173][189] [173][189] [173]              [195][198][210][198][195][195][195][195][195][189]  "
  33. 105 data"                                      "
  34. 106 data"  ----- a story by lost brain -----   "
  35. 107 data"                                      "
  36. 108 data"               [176][195][195][195][195][195][195][195][195][174]             "
  37. 109 data"               [173][174][213][201]  [213][201][176][189]             "
  38. 110 data"                [194][172][187]  [172][187][194]              "
  39. 111 data"                [194]  [206][205]  [194]              "
  40. 112 data"                [173][174][176][178][178][174][176][189]              "
  41. 113 data"                 [173][195][195][195][195][189]               "
  42. 114 data"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  43. 115 data"nein, so gefiel sie ihm noch nicht !  "
  44. 116 data"die haare waren ihm zu hell. doch ein "
  45. 117 data"leichter dreh am regler und das wesen "
  46. 118 data"kam seinen vorstellungen einer perfek-"
  47. 119 data"ten frau immer naeher. tagelang hatte "
  48. 120 data"er sich die ganze sache durch den kopf"
  49. 121 data"gehen lassen. doch vielleicht wuerde  "
  50. 122 data"er sich so seinen traum eines zweisa- "
  51. 123 data"men lebens endlich erfuellen koennen. "
  52. 124 data"geschafft !!! so hatte er sie sich    "
  53. 125 data"immer vorgestellt. die langen beine,"
  54. 126 data"die ihm endlos erschienen, die langen "
  55. 127 data"roten haare, ihre lippen, ja so gefiel"
  56. 128 data"sie ihm. ein leichter druck auf den   "
  57. 129 data"gruenen knopf vollendete seine machen-"
  58. 130 data"schaft. ein lautes und doch recht     "
  59. 131 data"dumpfes grollen ging durch das labor. "
  60. 132 data"aus der verchromten kapsel kam ein    "
  61. 133 data"zischen, ein blaues licht und nach ei-"
  62. 134 data"ner weile etwas, dass sich wie ein    "
  63. 135 data"leises stoehnen anhoehrte. erst nach  "
  64. 136 data"einer kurzen zeit, in der er darueber "
  65. 137 data"nachdachte, rannte er zur kapsel. er  "
  66. 138 data"oeffnete sie. erst als sich der rauch "
  67. 139 data"verzog konnte er sie sehen. schoener  "
  68. 140 data"als er sie erschaffen hatte. vollkom- "
  69. 141 data"men verwirrt von ihrer schoenheit,    "
  70. 142 data"vergass er, ihr die sachen zu geben.  "
  71. 143 data"alles, was er entwarf bestand nur aus "
  72. 144 data"organischem gewebe. und da er nicht   "
  73. 145 data"wollte, dass sie frohr, gab er ihr ein"
  74. 146 data"hemd und eine hose. frauenkleider bJ- "
  75. 147 data"sass er nicht. er hatte ja immer in e-"
  76. 148 data"wiger einsamkeit gelebt.              "
  77. 149 data"schoen war sie. natuerlich und doch   "
  78. 150 data"aussergewoehnlich. schon lange hatte  "
  79. 151 data"er nicht mehr mit einer frau geschla- "
  80. 152 data"fen. doch sie 9at alles, was er sagte."
  81. 153 data"dunkel war die nacht. 0.13 zeigte die "
  82. 154 data"uhr am bett. welch ein gefuehl das war"
  83. 155 data"hatte er nicht vergessen. die waerme, "
  84. 156 data"die naehe zu einer frau. das hatte ihm"
  85. 157 data"schon immer gefehlt. sie wurde schnel-"
  86. 158 data"ler. obwohl sie ein cyborg war. sie   "
  87. 159 data"hatte gefuehle. auch sie genoss es.   "
  88. 160 data"zumindest zeigte sie es. der hoehe-   "
  89. 161 data"punkt ihrer gemeinsamen extase war    "
  90. 162 data"wohl das schoenste fuer ihn, was er je"
  91. 163 data"erlebt hatte. auch sie zeigte endlich "
  92. 164 data"ein laecheln, was ihn 'befriedigte'.  "
  93. 165 data"sie legte sich nun neben ihn. beide   "
  94. 166 data"wurden ruhiger und er war sehr muede, "
  95. 167 data"die anstrengung hatte sich aber ge-   "
  96. 168 data"lohnt, dass hatte sie ihm ja gerade   "
  97. 169 data"bewiesen. zufrieden schlief er ein.   "
  98. 170 data"                                      "
  99. 171 data"ein lautes knacken weckte ihn. erst   "
  100. 172 data"als er aufwachte spuerte er den star- "
  101. 173 data"ken schmerz. vor ihm stand sein er-   "
  102. 174 data"schaffenes wesen. und neben ihm....   "
  103. 175 data"sie sah genauso aus, wie die frau vor "
  104. 176 data"ihm. zu seiner linken auch. traeumte  "
  105. 177 data"er noch ? hatte er sie doch nur einmal"
  106. 178 data"erschaffen!!, dem war er sich sicher. "
  107. 179 data"hatten sie doch eine moeglichkeit ge- "
  108. 180 data"funden, sich zu kopieren ?? aus dem   "
  109. 181 data"keller vernahm er ein lautes zischen, "
  110. 182 data"gefolgt von einem fast unhoehrbaren   "
  111. 183 data"stoehnen. also doch !!!               "
  112. 184 data"                                      "
  113. 185 data"das letzte was er sah, war sein linker"
  114. 186 data"arm, den der cyborg vor ihm in der    "
  115. 187 data"hand hielt. jetzt wusste er woher das "
  116. 188 data"knacken kam.                          "
  117. 189 data"                           lost brain "
  118.